home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / PfPaint_V2.lha / PerfectPaint / rexx / circle / AnimPulsar.rx < prev    next >
Encoding:
Text File  |  1999-01-30  |  247 b   |  21 lines
  1. /* Circle arexx test 
  2.     Anim Pulsar*/
  3.  
  4.     options results
  5.     parse ARG Port x1 y1 r b
  6.     ADDRESS value Port
  7.  
  8.     pp_CountFrames
  9.     nb=result
  10.     IF nb<2 then DO
  11.         pp_Warn 'Make*an*Anim*first.'
  12.         EXIT
  13.     END    
  14.  
  15.     do i=1 to r
  16.         pp_Circle x1 y1 i
  17.         pp_NextFrame
  18.     end
  19.  
  20.  
  21.